home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MEMMON.DIR / 00026_Unload.ls < prev    next >
Encoding:
Text File  |  2003-04-21  |  315 b   |  15 lines
  1. on mouseUp
  2.   global gTemp
  3.   freebytesAtStart = the freeBytes
  4.   tell the stage
  5.     gTemp = the number of castMembers
  6.   end tell
  7.   total = GetStageCastSizes(1, gTemp, 1)
  8.   now = startTimer()
  9.   tell the stage
  10.     unloadCast()
  11.   end tell
  12.   duration = PutTime(now)
  13.   Throughput(duration, total, 1, freebytesAtStart)
  14. end
  15.